home *** CD-ROM | disk | FTP | other *** search
- object formPathDialog: TformPathDialog
- Left = 294
- Top = 103
- BorderStyle = bsDialog
- BorderWidth = 5
- Caption = 'Wrong path'
- ClientHeight = 327
- ClientWidth = 462
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object panelTop: TPanel
- Left = 0
- Top = 0
- Width = 462
- Height = 49
- Align = alTop
- Alignment = taLeftJustify
- BevelOuter = bvNone
- BorderWidth = 5
- ParentColor = True
- TabOrder = 0
- object labelInformation: TLabel
- Left = 5
- Top = 5
- Width = 452
- Height = 39
- Align = alClient
- Caption =
- 'The registry contains a link to a file that contains an invalid ' +
- 'path. It is recommended to either fix the path or remove the lin' +
- 'k.'
- WordWrap = True
- end
- end
- object panelButtons: TPanel
- Left = 0
- Top = 294
- Width = 462
- Height = 33
- Align = alBottom
- BevelOuter = bvNone
- ParentColor = True
- TabOrder = 1
- DesignSize = (
- 462
- 33)
- object buttonIgnore: TBitBtn
- Left = 261
- Top = 8
- Width = 91
- Height = 25
- Hint =
- 'By choosing ignore, the registry won'#39't be changed and still poin' +
- 't to a directory without the needed helpfile.'
- Anchors = [akTop, akRight]
- Caption = '&Ignore'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- Kind = bkIgnore
- end
- object buttonOK: TBitBtn
- Left = 365
- Top = 8
- Width = 91
- Height = 25
- Hint =
- 'If you have changed the path to something valid, you can accept ' +
- 'that directory with this button.'
- Anchors = [akTop, akRight]
- Enabled = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- Kind = bkOK
- end
- object buttonDelete: TBitBtn
- Left = 157
- Top = 8
- Width = 91
- Height = 25
- Hint =
- 'By choosing delete, you can delete this entry from your registry' +
- '. Please don'#39't do this if you'#39're not sure!'
- Anchors = [akTop, akRight]
- Caption = '&Delete'
- ModalResult = 3
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
- 8888888888888888888888808888888888088800088888888888880000888888
- 8088888000888888088888880008888008888888800088008888888888000008
- 8888888888800088888888888800000888888888800088008888888000088880
- 0888880000888888008888000888888888088888888888888888}
- end
- object buttonSearch: TBitBtn
- Left = 8
- Top = 8
- Width = 91
- Height = 25
- Hint =
- 'Search your harddisk for this file, beginning with the "New Path' +
- '" directory.'
- Caption = '&Search'
- Enabled = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- OnClick = buttonSearchClick
- end
- end
- object panelMain: TPanel
- Left = 0
- Top = 49
- Width = 462
- Height = 245
- Align = alClient
- BevelOuter = bvLowered
- BorderWidth = 4
- ParentColor = True
- TabOrder = 2
- DesignSize = (
- 462
- 245)
- object labelSearchResults: TLabel
- Left = 5
- Top = 212
- Width = 452
- Height = 28
- Align = alBottom
- AutoSize = False
- Caption = 'No search started.'
- WordWrap = True
- end
- object labelResults: TLabel
- Left = 2
- Top = 132
- Width = 82
- Height = 77
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Search results:'
- end
- object labelNewPath: TLabel
- Left = 2
- Top = 108
- Width = 82
- Height = 21
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'New path:'
- end
- object labelPath: TLabel
- Left = 2
- Top = 64
- Width = 82
- Height = 41
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Path:'
- end
- object labelFile: TLabel
- Left = 2
- Top = 48
- Width = 82
- Height = 17
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'File:'
- end
- object labelRegistryKey: TLabel
- Left = 2
- Top = 16
- Width = 82
- Height = 33
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Registry Key:'
- end
- object textRegy: TStaticText
- Left = 88
- Top = 16
- Width = 366
- Height = 33
- Anchors = [akLeft, akTop, akRight]
- AutoSize = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ShowAccelChar = False
- TabOrder = 0
- end
- object textFile: TStaticText
- Left = 88
- Top = 48
- Width = 366
- Height = 17
- Anchors = [akLeft, akTop, akRight]
- AutoSize = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ShowAccelChar = False
- TabOrder = 1
- end
- object textPath: TStaticText
- Left = 88
- Top = 64
- Width = 366
- Height = 33
- Anchors = [akLeft, akTop, akRight]
- AutoSize = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ShowAccelChar = False
- TabOrder = 2
- end
- object buttonBrowse: TBitBtn
- Left = 429
- Top = 104
- Width = 21
- Height = 21
- Anchors = [akTop, akRight]
- Caption = '...'
- TabOrder = 3
- OnClick = buttonBrowseClick
- end
- object listboxSearchResults: TListBox
- Left = 88
- Top = 128
- Width = 341
- Height = 81
- Hint =
- 'This is the list of search results. Choose one to take it as the' +
- ' new path.'
- Anchors = [akLeft, akTop, akRight]
- ItemHeight = 13
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- OnClick = listboxSearchResultsClick
- end
- object editPath: TComboBox
- Left = 88
- Top = 104
- Width = 342
- Height = 21
- Anchors = [akLeft, akTop, akRight]
- ItemHeight = 13
- TabOrder = 5
- OnChange = editPathChange
- end
- end
- object openDialog: TOpenDialog
- Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
- Left = 384
- Top = 64
- end
- end
-